home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / zoetek / source / shckclck.dir / 00113_12-24 switch.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  220 b   |  11 lines
  1. global bignil, samemode
  2.  
  3. on mouseDown
  4.   set samemode to not samemode
  5.   getTheTime()
  6.   set x to the result
  7.   donum(1, bignil, the pad of x, the hour of x)
  8.   ampm(the twelveHrMode of x, the pm of x, 1)
  9.   updateStage()
  10. end
  11.